home *** CD-ROM | disk | FTP | other *** search
/ Ancient Asian Sex Secrets / Ancient Asian Sex Secrets.iso / mac / VIVID1M.Dxr / 00025.ls < prev    next >
Encoding:
Text File  |  1997-09-17  |  1.3 KB  |  38 lines
  1. on exitFrame
  2.   global gLoop, gNext, gHandCUR
  3.   set the cursor of sprite 10 to gHandCUR
  4.   if the timer > 20 then
  5.     startTimer()
  6.     set dList to list("D0", "D1", "D2", "D3", "D4", "D5")
  7.     set tList to list("D6", "D7", "D6", "D7", "D6", "D7")
  8.     set vList to list("D8", "D9", "D8", "D9", "D8", "D9")
  9.     set thList to list(320, 320, 320, 320, 320, 320)
  10.     set tvList to list(383, 383, 383, 383, 383, 383)
  11.     set vhList to list(320, 320, 320, 320, 320, 320)
  12.     set vvList to list(96, 96, 96, 96, 96, 96)
  13.     set the castNum of sprite 11 to the number of member getAt(tList, gLoop)
  14.     set the castNum of sprite 12 to the number of member getAt(vList, gLoop)
  15.     set the castNum of sprite 10 to the number of member getAt(dList, gLoop)
  16.     set the locH of sprite 11 to getAt(thList, gLoop)
  17.     set the locV of sprite 11 to getAt(tvList, gLoop)
  18.     set the locH of sprite 12 to getAt(vhList, gLoop)
  19.     set the locV of sprite 12 to getAt(vvList, gLoop)
  20.     updateStage()
  21.     if gLoop >= 6 then
  22.       set gLoop to 1
  23.     else
  24.       set gLoop to gLoop + 1
  25.     end if
  26.   end if
  27.   if (soundBusy(1) = 0) or (gNext = 1) then
  28.     puppetSound(0)
  29.     puppetSprite(10, 0)
  30.     puppetSprite(11, 0)
  31.     puppetSprite(12, 0)
  32.     set the cursor of sprite 10 to 0
  33.     go(the frame + 1)
  34.   else
  35.     go(the frame)
  36.   end if
  37. end
  38.